From 213839f855ca85c479657b3aeae76f138eefbd92 Mon Sep 17 00:00:00 2001 From: Simon Josefsson Date: Fri, 30 Aug 2002 10:31:02 +0000 Subject: [PATCH] (smtpmail-via-smtp): Delete process buffer unless s-debug-info is enabled. --- lisp/mail/smtpmail.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index f43c5f17858..3460a75a522 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -749,7 +749,9 @@ This is relative to `smtpmail-queue-dir'.") ; (>= (car response-code) 400)) ; (throw 'done nil) ; ) - (delete-process process)))))) + (delete-process process) + (unless smtpmail-debug-info + (kill-buffer process-buffer))))))) (defun smtpmail-process-filter (process output) -- 2.30.2